home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / FGL402D.ZIP / EXBAS.ARJ / TEMP / 13-08.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-31  |  893 b   |  47 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM KeyCode AS STRING*1
  6. DIM AuxCode AS STRING*1
  7.  
  8. OldMode = FGgetmode
  9. FGsetmode 19
  10.  
  11. FGvbinit
  12. SetMemStatus& = SETMEM(-(64000+16))
  13. Handle = FGvballoc(320,200)
  14. Status = FGvbopen(Handle)
  15. Status = FGloadpcx("CORAL.PCX"+CHR$(0),0)
  16. FGvbclose
  17.  
  18. FGsetcolor 2
  19. FGfillpage
  20. FGsetcolor 15
  21. FGbox 111, 208, 69, 130
  22. FGlocate 3, 8
  23. FGtext "Press arrow keys to pan.", 24
  24.  
  25. X = 112
  26. Y = 129
  27. FGvbpaste X, X+95, Y-59, Y, 112, 129
  28.  
  29. DO
  30.    FGgetkey KeyCode, AuxCode
  31.    IF AuxCode = CHR$(72) AND Y < 199 THEN
  32.       Y = Y + 1
  33.    ELSEIF AuxCode = CHR$(75) AND X < 223 THEN
  34.       X = X + 1
  35.    ELSEIF AuxCode = CHR$(77) AND X > 0 THEN
  36.       X = X - 1
  37.    ELSEIF AuxCode = CHR$(80) AND Y > 59 THEN
  38.       Y = Y - 1
  39.    END IF
  40.    FGvbpaste X, X+95, Y-59, Y, 112, 129
  41. LOOP WHILE KeyCode <> CHR$(27)
  42.  
  43. FGvbfree Handle
  44. FGsetmode OldMode
  45. FGreset
  46. END
  47.